home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / util / rexx / Latin2HTML.lha / Latin2HTML.ced next >
Text File  |  1998-01-23  |  6KB  |  339 lines
  1. /*
  2. ** Latin2HTML.ced v1.0  23/01/98 by Adam Carrano from A.P.S. Ltd
  3. ** email: adamca@aix.pacwan.net
  4. **
  5. ** Script ARexx pour CygnusED v4.2 
  6. ** Convertie les caracteres latin (é, É, à, À, etc.. mais aussi $, £, %, ß, etc...) vers leur equivalence HTML ISO-Latin-1 (ISO 8859-1)
  7. ** quelques caracteres sont volontairement omis car ils sont utilises par le code HTML ex: <, /, >, !, -, :, etc...
  8. **
  9. ** ARexx script for CygnusED v4.2
  10. ** convert the Latin print (é, É, à, À, etc.. but also $, £, %, ß, etc...) in their HTML ISO-Latin-1 equivalence (ISO 8859-1)
  11. ** some print are deliberately miss because they are use by the HTML ex: <, /, >, !, -, :, etc...
  12. ** 
  13. */
  14.  
  15.  
  16. OPTIONS RESULTS
  17.  
  18.  
  19. REPLACE "$" "$" 0 0 1 0 1 t
  20. BEG OF FILE
  21.  
  22. REPLACE "%" "%" 0 0 1 0 1 t
  23. BEG OF FILE
  24.  
  25. REPLACE "'" "'" 0 0 1 0 1 t
  26. BEG OF FILE
  27.  
  28. REPLACE "(" "(" 0 0 1 0 1 t
  29. BEG OF FILE
  30.  
  31. REPLACE ")" ")" 0 0 1 0 1 t
  32. BEG OF FILE
  33.  
  34. REPLACE "*" "*" 0 0 1 0 1 t
  35. BEG OF FILE
  36.  
  37. REPLACE "+" "+" 0 0 1 0 1 t
  38. BEG OF FILE
  39.  
  40. REPLACE "?" "?" 0 0 1 0 1 t
  41. BEG OF FILE
  42.  
  43. REPLACE "@" "@" 0 0 1 0 1 t
  44. BEG OF FILE
  45.  
  46. REPLACE "[" "[" 0 0 1 0 1 t
  47. BEG OF FILE
  48.  
  49. REPLACE "\" "\" 0 0 1 0 1 t
  50. BEG OF FILE
  51.  
  52. REPLACE "]" "]" 0 0 1 0 1 t
  53. BEG OF FILE
  54.  
  55. REPLACE "^" "^" 0 0 1 0 1 t
  56. BEG OF FILE
  57.  
  58. REPLACE "{" "{" 0 0 1 0 1 t
  59. BEG OF FILE
  60.  
  61. REPLACE "|" "|" 0 0 1 0 1 t
  62. BEG OF FILE
  63.  
  64. REPLACE "}" "}" 0 0 1 0 1 t
  65. BEG OF FILE
  66.  
  67. REPLACE "~" "~" 0 0 1 0 1 t
  68. BEG OF FILE
  69.  
  70. REPLACE "¡" "¡" 0 0 1 0 1 t
  71. BEG OF FILE
  72.  
  73. REPLACE "¢" "¢" 0 0 1 0 1 t
  74. BEG OF FILE
  75.  
  76. REPLACE "£" "£" 0 0 1 0 1 t
  77. BEG OF FILE
  78.  
  79. REPLACE "¤" "¤" 0 0 1 0 1 t
  80. BEG OF FILE
  81.  
  82. REPLACE "¥" "¥" 0 0 1 0 1 t
  83. BEG OF FILE
  84.  
  85. REPLACE "§" "§" 0 0 1 0 1 t
  86. BEG OF FILE
  87.  
  88. REPLACE "©" "©" 0 0 1 0 1 t
  89. BEG OF FILE
  90.  
  91. REPLACE "ª" "ª" 0 0 1 0 1 t
  92. BEG OF FILE
  93.  
  94. REPLACE "«" "«" 0 0 1 0 1 t
  95. BEG OF FILE
  96.  
  97. REPLACE "¬" "¬" 0 0 1 0 1 t
  98. BEG OF FILE
  99.  
  100. REPLACE "­" "­" 0 0 1 0 1 t
  101. BEG OF FILE
  102.  
  103. REPLACE "®" "®" 0 0 1 0 1 t
  104. BEG OF FILE
  105.  
  106. REPLACE "¯" "¯" 0 0 1 0 1 t
  107. BEG OF FILE
  108.  
  109. REPLACE "°" "°" 0 0 1 0 1 t
  110. BEG OF FILE
  111.  
  112. REPLACE "±" "±" 0 0 1 0 1 t
  113. BEG OF FILE
  114.  
  115. REPLACE "²" "²" 0 0 1 0 1 t
  116. BEG OF FILE
  117.  
  118. REPLACE "³" "³" 0 0 1 0 1 t
  119. BEG OF FILE
  120.  
  121. REPLACE "µ" "µ" 0 0 1 0 1 t
  122. BEG OF FILE
  123.  
  124. REPLACE "¶" "¶" 0 0 1 0 1 t
  125. BEG OF FILE
  126.  
  127. REPLACE "¹" "¹" 0 0 1 0 1 t
  128. BEG OF FILE
  129.  
  130. REPLACE "°" "º" 0 0 1 0 1 t
  131. BEG OF FILE
  132.  
  133. REPLACE "»" "»" 0 0 1 0 1 t
  134. BEG OF FILE
  135.  
  136. REPLACE "¼" "¼" 0 0 1 0 1 t
  137. BEG OF FILE
  138.  
  139. REPLACE "½" "½" 0 0 1 0 1 t
  140. BEG OF FILE
  141.  
  142. REPLACE "¾" "¾" 0 0 1 0 1 t
  143. BEG OF FILE
  144.  
  145. REPLACE "¿" "¿" 0 0 1 0 1 t
  146. BEG OF FILE
  147.  
  148. REPLACE "À" "À" 0 0 1 0 1 t
  149. BEG OF FILE
  150.  
  151. REPLACE "Á" "Á" 0 0 1 0 1 t
  152. BEG OF FILE
  153.  
  154. REPLACE "Â" "Â" 0 0 1 0 1 t
  155. BEG OF FILE
  156.  
  157. REPLACE "Ã" "Ã" 0 0 1 0 1 t
  158. BEG OF FILE
  159.  
  160. REPLACE "Ä" "Ä" 0 0 1 0 1 t
  161. BEG OF FILE
  162.  
  163. REPLACE "Å" "Å" 0 0 1 0 1 t
  164. BEG OF FILE
  165.  
  166. REPLACE "Æ" "Æ" 0 0 1 0 1 t
  167. BEG OF FILE
  168.  
  169. REPLACE "Ç" "Ç" 0 0 1 0 1 t
  170. BEG OF FILE
  171.  
  172. REPLACE "È" "È" 0 0 1 0 1 t
  173. BEG OF FILE
  174.  
  175. REPLACE "É" "É" 0 0 1 0 1 t
  176. BEG OF FILE
  177.  
  178. REPLACE "Ê" "Ê" 0 0 1 0 1 t
  179. BEG OF FILE
  180.  
  181. REPLACE "Ë" "Ë" 0 0 1 0 1 t
  182. BEG OF FILE
  183.  
  184. REPLACE "Ì" "Ì" 0 0 1 0 1 t
  185. BEG OF FILE
  186.  
  187. REPLACE "Í" "Í" 0 0 1 0 1 t
  188. BEG OF FILE
  189.  
  190. REPLACE "Î" "Î" 0 0 1 0 1 t
  191. BEG OF FILE
  192.  
  193. REPLACE "Ï" "Ï" 0 0 1 0 1 t
  194. BEG OF FILE
  195.  
  196. REPLACE "Ð" "Ð" 0 0 1 0 1 t
  197. BEG OF FILE
  198.  
  199. REPLACE "Ñ" "Ñ" 0 0 1 0 1 t
  200. BEG OF FILE
  201.  
  202. REPLACE "Ò" "Ò" 0 0 1 0 1 t
  203. BEG OF FILE
  204.  
  205. REPLACE "Ó" "Ó" 0 0 1 0 1 t
  206. BEG OF FILE
  207.  
  208. REPLACE "Ô" "Ô" 0 0 1 0 1 t
  209. BEG OF FILE
  210.  
  211. REPLACE "Ö" "Ö" 0 0 1 0 1 t
  212. BEG OF FILE
  213.  
  214. REPLACE "Õ" "Õ" 0 0 1 0 1 t
  215. BEG OF FILE
  216.  
  217. REPLACE "×" "×" 0 0 1 0 1 t
  218. BEG OF FILE
  219.  
  220. REPLACE "Ø" "Ø" 0 0 1 0 1 t
  221. BEG OF FILE
  222.  
  223. REPLACE "Ù" "Ù" 0 0 1 0 1 t
  224. BEG OF FILE
  225.  
  226. REPLACE "Ú" "Ú" 0 0 1 0 1 t
  227. BEG OF FILE
  228.  
  229. REPLACE "Û" "Û" 0 0 1 0 1 t
  230. BEG OF FILE
  231.  
  232. REPLACE "Ü" "Ü" 0 0 1 0 1 t
  233. BEG OF FILE
  234.  
  235. REPLACE "Ý" "Ý" 0 0 1 0 1 t
  236. BEG OF FILE
  237.  
  238. REPLACE "Þ" "Þ" 0 0 1 0 1 t
  239. BEG OF FILE
  240.  
  241. REPLACE "ß" "ß" 0 0 1 0 1 t
  242. BEG OF FILE
  243.  
  244. REPLACE "à" "à" 0 0 1 0 1 t
  245. BEG OF FILE
  246.  
  247. REPLACE "á" "á" 0 0 1 0 1 t
  248. BEG OF FILE
  249.  
  250. REPLACE "â" "â" 0 0 1 0 1 t
  251. BEG OF FILE
  252.  
  253. REPLACE "ã" "ã" 0 0 1 0 1 t
  254. BEG OF FILE
  255.  
  256. REPLACE "ä" "ä" 0 0 1 0 1 t
  257. BEG OF FILE
  258.  
  259. REPLACE "å" "å" 0 0 1 0 1 t
  260. BEG OF FILE
  261.  
  262. REPLACE "æ" "æ" 0 0 1 0 1 t
  263. BEG OF FILE
  264.  
  265. REPLACE "ç" "ç" 0 0 1 0 1 t
  266. BEG OF FILE
  267.  
  268. REPLACE "è" "è" 0 0 1 0 1 t
  269. BEG OF FILE
  270.  
  271. REPLACE "é" "é" 0 0 1 0 1 t
  272. BEG OF FILE
  273.  
  274. REPLACE "ê" "ê" 0 0 1 0 1 t
  275. BEG OF FILE
  276.  
  277. REPLACE "ë" "ë" 0 0 1 0 1 t
  278. BEG OF FILE
  279.  
  280. REPLACE "ì" "ì" 0 0 1 0 1 t
  281. BEG OF FILE
  282.  
  283. REPLACE "í" "í" 0 0 1 0 1 t
  284. BEG OF FILE
  285.  
  286. REPLACE "î" "î" 0 0 1 0 1 t
  287. BEG OF FILE
  288.  
  289. REPLACE "ï" "ï" 0 0 1 0 1 t
  290. BEG OF FILE
  291.  
  292. REPLACE "ð" "ð" 0 0 1 0 1 t
  293. BEG OF FILE
  294.  
  295. REPLACE "ñ" "ñ" 0 0 1 0 1 t
  296. BEG OF FILE
  297.  
  298. REPLACE "ò" "ò" 0 0 1 0 1 t
  299. BEG OF FILE
  300.  
  301. REPLACE "ó" "ó" 0 0 1 0 1 t
  302. BEG OF FILE
  303.  
  304. REPLACE "ô" "ô" 0 0 1 0 1 t
  305. BEG OF FILE
  306.  
  307. REPLACE "õ" "õ" 0 0 1 0 1 t
  308. BEG OF FILE
  309.  
  310. REPLACE "÷" "÷" 0 0 1 0 1 t
  311. BEG OF FILE
  312.  
  313. REPLACE "ø" "ø" 0 0 1 0 1 t
  314. BEG OF FILE
  315.  
  316. REPLACE "ù" "ù" 0 0 1 0 1 t
  317. BEG OF FILE
  318.  
  319. REPLACE "ú" "ú" 0 0 1 0 1 t
  320. BEG OF FILE
  321.  
  322. REPLACE "û" "û" 0 0 1 0 1 t
  323. BEG OF FILE
  324.  
  325. REPLACE "ü" "ü" 0 0 1 0 1 t
  326. BEG OF FILE
  327.  
  328. REPLACE "ý" "ý" 0 0 1 0 1 t
  329. BEG OF FILE
  330.  
  331. REPLACE "þ" "þ" 0 0 1 0 1 t
  332. BEG OF FILE
  333.  
  334. REPLACE "ÿ" "ÿ" 0 0 1 0 1 t
  335. BEG OF FILE
  336.  
  337. REPLACE "é" "é" 0 0 1 0 1 t
  338. BEG OF FILE
  339.